home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / ogde10.zip / OGDE.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-05-05  |  2KB  |  106 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  2396 bytes  03/09/122  08:19:06am
  3. '! Code Segment Size  :802 bytes
  4. '! Data Segment Size  :4487 bytes
  5. '! String Segment Size:1594 bytes
  6. '! Compiled with WCC version 4.12
  7.  
  8.       Dim s4463 As String
  9.       Dim s4467 As String
  10.       Dim s4471 As String
  11.       Dim s4475 As String
  12.       Dim s4479 As String
  13.       Dim s4483 As String
  14.  
  15.       s4463 = "OGDE.CFG"
  16.       If Exists(ProgPath + s4463) Then
  17.         Open ProgPath + s4463 For Input As 1
  18.         Input #1, s4467
  19.         Input #1, s4471
  20.         Input #1, s4475
  21.         Input #1, s4479
  22.         Input #1, s4483
  23.         Close 1
  24.         GoTo 169
  25.       Else
  26.   143   Cls 
  27.         Print "@0A@Configuration file not found."
  28.         Delay 3
  29.         GoTo 661
  30.   169   If User.SecLevel = s4467 Then
  31.           GoTo 209
  32.         Else
  33.   203     GoTo 661
  34.   209     Cls 
  35.           Locate 5, 5
  36.           Print "@7F@┌─────────────────────────────────────────────────────────────────────┐@70@"
  37.           Locate 6, 5
  38.           Print "@70@│@7F@                     @79@                                                @7F@│@70@"
  39.           Locate 7, 5
  40.           Print "@70@│@79@           @7F@ @79@You must download the following files before             @7F@│@70@"
  41.           Locate 8, 5
  42.           Print "@70@│@79@            you can become a registered user on this BBS.            @7F@│@70@"
  43.           Locate 9, 5
  44.           Print "@70@│@79@                                                                     @7F@│@70@"
  45.           Locate 10, 5
  46.           Print "@70@│@79@                                                                     @7F@│@70@"
  47.           Locate 11, 5
  48.           Print "@70@│@79@                                                                     @7F@│@70@"
  49.           Locate 12, 5
  50.           Print "@70@│@79@                                                                     @7F@│@70@"
  51.           Locate 13, 5
  52.           Print "@70@│@79@                                                                     @7F@│@70@"
  53.           Locate 14, 5
  54.           Print "@70@│@79@        If you do not download these, you will be logged off.        @7F@│@70@"
  55.           Locate 15, 5
  56.           Print "@70@│                                                                     @7F@│@70@"
  57.           Locate 16, 5
  58.           Print "@70@└─────────────────────────────────────────────────────────────────────┘@07@"
  59.           Locate 10, 35
  60.           Print "@71@" + s4475
  61.           Locate 11, 35
  62.           Print "@71@" + s4479
  63.           Locate 12, 35
  64.           Print "@71@" + s4483
  65.           Locate 15, 18
  66.           If InputYesNo("@78@Do you want to download these files now? @0A@", -1) Then
  67.             GoTo 514
  68.           Else
  69.   506       Goodbye 1213417543
  70.   514       If s4475 = "" Then
  71.               GoTo 661
  72.             Else
  73.   543         SendFile(ProgPath + s4475, 1213417543)
  74.               If s4479 = "" Then
  75.                 GoTo 662
  76.               Else
  77.   590           SendFile(ProgPath + s4479, 1213417543)
  78.                 If s4483 = "" Then
  79.                   GoTo 662
  80.                 Else
  81.   637             SendFile(ProgPath + s4483, 1213417543)
  82.                   GoTo 662
  83.                   Do
  84.   661               End 
  85.   662               Cls 
  86.                     User.SecLevel = s4471
  87.                     Locate 5, 5
  88.                     Print "@7F@┌──────────────────────────────────────────────────────────────────┐@70@"
  89.                     Locate 6, 5
  90.                     Print "@70@│@79@                                                                  @7F@│@70@"
  91.                     Locate 7, 5
  92.                     Print "@70@│@79@ You have been upgraded. Please look over the files you received. @7F@│@70@"
  93.                     Locate 8, 5
  94.                     Print "@70@│@79@                                                                  @7F@│@70@"
  95.                     Locate 9, 5
  96.                     Print "@70@└──────────────────────────────────────────────────────────────────┘@07@"
  97.                     Delay 4
  98.                   Loop
  99.                 End If
  100.               End If
  101.             End If
  102.           End If
  103.         End If
  104.       End If
  105.   773 End 
  106.